home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
tx072291.zip
/
TXSHADE.PRG
< prev
Wrap
Text File
|
1991-07-22
|
2KB
|
61 lines
*:*********************************************************************
*:
*: Program: TXSHADE.PRG
*:
*: System: Texas Associated Software Laser Library
*: Author: Jose E. Lopez, Jr.
*: Copyright (c) 1991, Texas Associated Software - Red Oak, TX
*:
*:*********************************************************************
txinit()
txreset()
txcolbox(01, 20, 10, 07, 1, 2)
txcolprint(09, 22, .F., "1-5 %")
txcolbox(01, 50, 10, 07, 1, 10)
txcolprint(09, 50, .F., "5-10 %")
txcolbox(15, 20, 10, 07, 1, 20)
txcolprint(23, 20, .F., "11-20 %")
txcolbox(15, 50, 10, 07, 1, 30)
txcolprint(23, 50, .F., "21-30 %")
txcolbox(29, 20, 10, 07, 1, 30)
txcolprint(37, 20, .F., "21-30 %")
txcolbox(29, 50, 10, 07, 1, 40)
txcolprint(37, 50, .F., "31-40 %")
txcolbox(43, 20, 10, 07, 1, 50)
txcolprint(52, 20, .F., "41-50 %")
txcolbox(43, 50, 10, 07, 1, 60)
txcolprint(52, 50, .F., "51-60 %")
txcolprint(58, 25, .T., "Gray Shading Levels Page 1")
txpsource(0) && force print and page eject
txcolbox(01, 20, 10, 07, 1, 70)
txcolprint(09, 20, .F., "61-70 %")
txcolbox(01, 50, 10, 07, 1, 75)
txcolprint(09, 50, .F., "71-75 %")
txcolbox(15, 20, 10, 07, 1, 80)
txcolprint(23, 20, .F., "76-80 %")
txcolbox(15, 50, 10, 07, 1, 85)
txcolprint(23, 50, .F., "81-85 %")
txcolbox(29, 20, 10, 07, 1, 90)
txcolprint(37, 20, .F., "86-90 %")
txcolbox(29, 50, 10, 07, 1, 95)
txcolprint(37, 50, .F., "91-95 %")
txcolbox(43, 20, 10, 07, 1, 100)
txcolprint(52, 20, .F., "100 %")
txcolprint(58, 25, .T., "Gray Shading Levels Page 2")
txclear()
*: EOF: TXSHADE.PRG